unit uLoginIPNew;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Spin;

type

  { TFmLoginIPNew }

  TFmLoginIPNew = class(TForm)
    BTOK: TButton;
    EDIP: TEdit;
    EDName: TEdit;
    EDPort: TEdit;
    Label3: TLabel;
    LBIP: TLabel;
    LBPort: TLabel;
    Panel1: TPanel;
    procedure BTOKClick(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private

  public

  end;

var
  FmLoginIPNew: TFmLoginIPNew;

implementation

{$R *.lfm}

{ TFmLoginIPNew }

procedure TFmLoginIPNew.BTOKClick(Sender: TObject);
begin

end;

procedure TFmLoginIPNew.FormClick(Sender: TObject);
begin

end;

end.

